Attribute VB_Name = "ErrorHandler"
Option Explicit

Private vm_ErrorHandler As TrappableErrorHandler

Public Sub initializeErrorHandler()
Set vm_ErrorHandler = New TrappableErrorHandler
End Sub

Public Sub terminateErrorHandler()
Set vm_ErrorHandler = Nothing
End Sub

Public Property Get mainErrorHandler() As TrappableErrorHandler
Set mainErrorHandler = vm_ErrorHandler
End Property

Public Property Set mainErrorHandler(ByVal pr_NewHandler As TrappableErrorHandler)
Set vm_ErrorHandler = pr_NewHandler
End Property
